then put "You are not allowed to click this button. Sorry!" into m
if tries=2
then put "You have not proven to me that you are mature enough to click this button." into m
if tries=3
then put "If you want to click this button, you have to insert a note from your mother into the internal disk drive." into m
if tries=4
then put "Click this button again if you want...but better make a backup of your hard disk first!" into m
if tries=5
then put "I'll give you one thing...you've got guts. I hope you will use better sense if you see something like this somewhere else. What if this Stack really contained a XCMD to nuke your disk?" into m
if tries=6
then put "Just curious...Did you take any precaution before clicking this button for the fourth time?" into m
if tries=7
then put "The Slug would appreciate it if you would quit clicking him." into m
if tries=8
then put "I give up. This is the messages will repeat after this." into m
if tries=9
then put "You are not allowed to click this button. Sorry!" into m
if tries=10
then put "You are persistent! Congratulations. That's all of the messages...really!" into m
Put m into card field "Mssg"
set the visible of card field "Mssg" to true
repeat until the mouseClick
put n+1 into n
wait 1 ticks
if n=300 then exit repeat
end repeat
set the visible of card field "Mssg" to false
end mouseUp
-- part 7 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=111 top=40 right=56 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: slug#1
-- part 8 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=111 top=59 right=75 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: slug#2
-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=226 top=78 right=94 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: numRounds
-- part 10 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=265 top=40 right=56 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cl1
-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=307 top=40 right=56 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ef1
-- part 13 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=349 top=40 right=56 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pw1
-- part 14 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=391 top=40 right=56 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: en1
-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=433 top=40 right=56 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: df1
-- part 16 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=265 top=59 right=75 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cl2
-- part 17 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=307 top=59 right=75 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ef2
-- part 18 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=349 top=59 right=75 bottom=388
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pw2
-- part 19 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=391 top=59 right=75 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: en2
-- part 20 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=433 top=59 right=75 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: df2
-- part 21 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=60 top=24 right=96 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Mssg
-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=476 top=61 right=93 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
get the visible of card field "help"
if it is true then
set the visible of card field "help" to false
else
set the visible of card field "help" to true
end if
end mouseUp
-- part 23 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=208 right=341 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: help
-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=475 top=26 right=59 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9991 / 9991
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: list
----- HyperTalk script -----
on mouseUp
get the visible of card field "list"
if it is true then
set the visible of card field "list" to false
else
set the visible of card field "list" to true
end if
end mouseUp
-- part 26 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=340 top=114 right=329 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: List
-- part 27 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=59 top=40 right=57 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Slug 1:
----- HyperTalk script -----
on mouseUp
get filename("TEXT")
put it into fname1
global first1,first2,f1,f2,cl1,cl2,ef1,ef2,pw1,pw2,en1,en2,df1,df2
global sp1,sp2,loaded1
open file fname1 -- open fighter #1
read from file fname1 until return
put it into first1 -- first name
read from file fname1 until return
put it into f1 -- last name
read from file fname1 until return
put it into cl1 -- control=aggresiveness
read from file fname1 until return
put it into ef1 -- efficiency=% punches connected
read from file fname1 until return
put it into pw1 -- power=power of the fighter's punch
read from file fname1 until return
put it into en1 -- endurance
read from file fname1 until return
put it into df1 -- defense= + good, - bad
read from file fname1 until return
delete last char of it
put it into sp1
close file fname1
delete last char of f1
delete last char of first1
put cl1 into card field "cl1"
put ef1 into card field "ef1"
put pw1 into card field "pw1"
put en1 into card field "en1"
put df1 into card field "df1"
put 1 into loaded1
put first1&&f1 into card field "slug#1"
play "harpsichord"
end mouseUp
-- part 29 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=59 top=59 right=76 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Slug 2:
----- HyperTalk script -----
on mouseUp
get filename("TEXT")
put it into fname2
global first1,first2,f1,f2,cl1,cl2,ef1,ef2,pw1,pw2,en1,en2,df1,df2
global sp1,sp2,loaded2
open file fname2 -- open fighter #2
read from file fname2 until return
put it into first2
read from file fname2 until return
put it into f2
read from file fname2 until return
put it into cl2
read from file fname2 until return
put it into ef2
read from file fname2 until return
put it into pw2
read from file fname2 until return
put it into en2
read from file fname2 until return
put it into df2
read from file fname2 until return
delete last char of it
put it into sp1
close file fname2
delete last char of f2
delete last char of first2
put cl2 into card field "cl2"
put ef2 into card field "ef2"
put pw2 into card field "pw2"
put en2 into card field "en2"
put df2 into card field "df2"
put 1 into loaded2
put first2&&f2 into card field "slug#2"
play "harpsichord"
end mouseUp
-- part contents for card part 21
----- text -----
You are not allowed to click this button. Sorry!
-- part contents for card part 23
----- text -----
Slug (A) Special thanks to:
Version 0.93 Manny Fernandez
April 19, 1989
by Mike Gleason Jr.
* Click the Help Button again to close this field. *
Intro:
-----
Slug, in case you already haven't figured out, does not deal with terrestrial pulmonate gastropods; it is a professional boxing simulator. I originally called the program "Slugging," but that sounded strange, so I truncated the name to "Slug."
Instructions:
------------
Before each fight, you must load the desired fighters from disk. Click the buttons called "Slug 1:" and "Slug 2:". This will bring up the fileName XFCN. Click the filename and hit open. (Thanks to whoever wrote it!). If you click the button that resembles a slug's head, a list of Slugs will appear. Most filenames are in the following format:
Tyson, Mike
If you did everything right, you will hear the harpsichord ring. The fighter's statistics will appear in the card fields to the right of their names. I won't go into much detail on these stats, but I will tell you what they are:
Cl = Control; How much a fighter dominates the fight (1-100)
Ef = Efficiency; How accurate a fighter's punches are (1-100)
Pw = Power; The power of the fighter's punch (1-12)
En = Endurance; The fighter's ability to stay off the canvas (1-300)
Df = Defense; How good the fighter defends himself (+ good, - bad)
Hit the right finger key to arrive at ringside. Hit the "Fight!" button to start the bout. (If the fight button is replaced by a field saying you haven't loaded slugs, go back to the first card and load them.) Each fighter's actions will be shown in the bigger fields. The numberline along the bottom is the knockdown meter; it will increment when a fighter kisses the floor. The fighters' scores will be updated in fields to the right of the ko meter. The stack will ring after each round; you can either click to continue or wait a few seconds.
How to Register:
---------------
I can't physically force you to register, but when you send in your Mandatory Shareware Fee (MSF) of $2.00 and a formatted 800k disk, you will receive the disk back with the following on it:
All the Slugs I have created at the moment...there will be atleast 100!
 (January 1993).iso/Files/Game/S/Slug A & B.cpt/Slug A/card_2893_render.png){kind=link}
 (January 1993).iso/Files/Game/S/Slug A & B.cpt/Slug A/card_3191_render.png){kind=link}